home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / vm-cms / texshell / xspytex.xedit < prev   
Text File  |  1993-09-27  |  555b  |  15 lines
  1. /**== 13  XSPYTEX XEDIT ===============================OF BIU====**
  2. Insert TEX commands by PK-keys.
  3.  **==============================================================**/
  4. EXTRACT @CURSOR @LSCREEN
  5. IF CURSOR.3 = '-1' THEN DO; MSG 'CURSOR OUT OF FILE'; EXIT; END
  6. 'SET SCREEN WIDTH' LSCREEN.6-45 '45'
  7. 'SOS TABCMDF 1'
  8.    'XEDIT $$NO$$ $$NO$$ A     (PROFILE PROFYPTX'
  9.    'CURSOR HOME'
  10.    'GLOBALV SELECT XXEDSCR GET PFF'
  11.    IF PFF/=3 THEN CALL 'PROFYTX' PFF
  12. 'GLOBALV SELECT XXEDSCR PURGE'
  13. EXIT
  14. /**==============================================================**/
  15.